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EDITORIAL 

Sentindo os problemas dos usudrios de micro com putad ores, em 
termos de acessibiiidade a programas, em especial os que envolvem 
lazer, bom oomo os diddticos, foi que surgiu a idfiia desta publicacSu, 
com a finalidade de satisfazer as necessidades ate" entffo exislentes. 

Esta publicacSb nffo se resume a "simples programas", e sim pro- 
gramas que de certa forma transmitem "truques", tais como movi- 
mentos, placares, desenhos, etc. 

Com a evolucSb espantosa na area de informdtica, e que a cada dia 
se amplia, lutaremos para acompanha'-la, e sempre levar aos lei to res, 
atraves da revlsta SO PROGRAMAS esta verdadeira revolucffo. 

Acreditamos que o leitor encontrara* nesta publicacao, o que sempre 
osporou: "S0 PROGRAMAS". 

O EDITOR 
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Como o nome jd diz, este programa 6 "QUALQUER COISA". 
Voce" ja" pensou se um dia chegar em casa e encontrar seu microcompu- 
tador ligado e na tela um lembrete dizendo: 

QUERIDO TIAO DEIXEI NOSSO PENTE PRESO MA PIA. NAO 
SE ESQUEQA DE TIRAR AS SUAS PEDRAS DO PALETO PARA 
EVITAR QUE SE ESTRAGUEM. 

LEVE ATE O SR. ZE ESTE PREGO CHEIO DE MELADO PARA 
LAVAR. 

ESCOVE SEU ZE ANTES DE LAVAR SUAS PEDRAS. 

TCHAU. E UM POSTE DE SUA ESTOPIDA QUE TE AMA. 

ASS.JERVASIA, 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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Este programa tem vSrias utilidades, uma delas 6 fazer voce sorrir 
mesmo sem vontade, desde que voce 1 use sua imaginacSb para distribuir vJ 

com criatividade os seguintes itens: 

1.QUATRO SUBSTANTIVOS QUAISQUER COMO: SOPA, 
O MELADO, ETC. O 

2. QUATRO ADJETIVOS NO FEMINIIMO COMO: FEIA, MA- 
GRA, ETC. 

3. QUATRO OBJETOS NO MASCULINO COMO: SAPATO, (~\ 
MARTELO, ETC. 

4. QUATRO OBJETOS NO FEMININO COMO: MEIA, CALQA, 

O 5. DOIS NOMES PROPRIOS NO MASCULINO. 

6. DOIS NOMES PROPRIOS NO FEMININO. 

IMPORTANTE:TODAS AS PALAVRAS DE QUALQUER ITEM 
O SO PODERAO TER UM MAXIMO DE OITO LETRAS. O 

Voce" pode optar por quatro tipos de "loucura": 

1. CARTA 
r\ 2. NOTA DE FALECIMENTO Q 

3. LEMBRETE 

4.PERDEU-SE 

OSUGESTAO: Tente arterar uma das quatro opcoes, ou ate* inserir 
OUtras. ^ 

BOM DIVERTIMENTO (especialmente em pessar trezentas linhas 
de programa). 

PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 

1 REM QUALQUER COISA 
5 REM SIDNEY PARETTI 
-. 10 DIM A$ (4,8) ^ 

\J 20 DIM B$ (4,8) 

30 DIM..CI (43) 
40 DIM D$ (4,8) 

O 50 DIM E$(2,8) O 

60 DIM F$ (2^) 
70 PRINT AT 6,8;"4 SUBSTANTIVOS" 

O 75 INPUT A$(1) O 

80 PRINT AT 7,8;A$(1) 
90 INPUT A$ (2) 
r\ 100 PRINT AT8,8;A$ (2) 

110 INPUT A$ (3) 

120 PRINT AT 9,8;A$ (3) 

130 INPUT A$ (4) 
O 140 PRINT AT 10,8;A$ (4) O 

150 CLS 

160 PRINT AT 6,8;"4 ADJETIVOS (F):" 
170 INPUT B$(1) O 

180 PRINT AT7.8;B$ (11 

190 INPUT B$ (2) 
f\ 200 PRINT AT8,8;B$ (2) 

210 INPUT B$ (3) 

220 PRINT AT 9,8;B$ (3) 
^ 230 INPUT B$ (4) ^ 

4 



U 250 CLS U 

260 PRINTAT6,8;"4 0BJETOS(M):" 

270 INPUT C$ (1) 

280 PRINT AT 7,8;C$(1) O 

290 INPUT C$ (2) 

300 PRINT AT 8,8;C$ (2) 

r-\ 310 INPUT C$(3) Q 

W 320 PRINTTA9,8;C$(3) 

330 INPUT C$ (4J 

—^ 340 PRINT AT 10,8;C$ (4) ^ 

VJ 350 CLS V 

360 PRINT AT 6,8;"4 OBJETOS (F):" 

370 INPUT D$ (1) 

O 380 PRINT AT 7,8;D$ (1 ) O 

390 INPUT D$ (2) 

400 PRNI ATg,8;D$ (2) 

Q 410 INPUT D$ (3) O 

W 420 PRINT AT 9,8;D$ (3) 

430 INPUT D$ (4) 

O440 PRINT AT 10,8;D$ (4) p* 

450 CLS ^ 

470 PRINT AT 6,8;"2 NOMES (M):" 

480 INPUT E$ (1) 

O 490 PRINT AT 7,8;E$(1) O 

500 INPUT E$ (2) 

510 PRINTAT8,8;E$(2) 

O 520 CLS O 

530 PRINT AT 6,8;"2 NOMES (F):" 

540 INPUT F$ (1) 

^ 550 PRINT AT 7,8;F$(1) /-\ 

*— ' 560 INPUT F$ (2) ^ 

570 PRINTAT8,8;F$<2) 

580 CLS 

O 600 PRINT AT 5,6;"ESCOLHA UM NUMERO:" O 

610 LETA=INT(RND * 3) + 1 

620 LETB=INT(RND*4) + 1 

O 63 LET c= INT * RND * 3) + 1 O 

640 LETD=INT(RND * 3) + 2 

650 LETE=INT(RND*2) + 1 
r\ 660 LET F= INT (RND * 2) + 1 r\ 

^ 670 IF INKEYS = "V'THEN GOTO 1000 ^ 

680 IF INKEY$ = "2"THEN GOTO 2000 

690 IF INKEYS = "3" THEN GOTO 3000 - 

O 700 IF INKEYS = "4" THEN GOTO 4000 O 

710 PRINT AT 6,6;"!. CARTA" 

720 PRINT AT 7,6;"2. NOTA DE FALECIMENTO" 
O 73 *3 PRINT AT 8,6;"3. LEMBRETE" Q 

740 PRINT AT 9,6;"4. PERDEU-SE" 
1000 CLS 
Q 1005 PRINT AT 1,7 ;"ILMO.SR." Q 
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1040 


o 


1050 




1060 




1070 


o 


1080 


1090 




1100 


o 


1110 

1120 




1130 




1140 


o 


1150 




1160 




1170 


o 


1180 




1190 




1200 


o 


1210 
1220 




1230 




1240 


o 


1250 




1260 




1270 


o 


2000 




2005 




2010 


o 


2020 
2030 




2040 


J*^fc 


2050 


o 


2060 




2070 




2080 


o 


2090 




2100 




2110 


o 


2120 


2130 




2140 


o 


2150 
2160 




2170 




2180 


o 


2190 




2200 




2210 


o 


2220 




2230 




2240 


o 


2250 
2260 




2270 


r^ 


2280 



PRINT AT 5,1 ;"PEDIR UMA PARA USAR NO" 

PRINT AT 5,1 1;D$ (D) 

PRINT AT 6,9;", POIS ESTOU COM A MINHA" 

PRINT AT 6,1 ;CS(C) 

PRINT AT 7,9;"LOTADA DE 

PRINT AT 7,1 ;DS(B);AT7,19;A$ (D) 

PRINT AT 8,3;"POR ESTE MOTIVO SOU OBRIGADO" 

PRINT AT 9,1 ;"A APELAR PARA A SEM TER" 

PRINT AT 9,17;BS (Fl 

PRINT AT 10,1O;"COM TOTAL APOIO DAS" 

PRINT AT 10,1 ;D$ (A) 

PRINT AT 11,9;"PARAJUSTIFICAR MINHAS" 

PRINTAT11,1;B$(D) 

PRINT AT 12,1 LATITUDES" 

PRINT AT 12,10;BS (A) 

PRINT AT 14,3;"FINDO AQUI COM A AJUDA DO MEU" 

PRINT AT 15,10;"DEQUETUDOSAIA 

PRINT AT 15,1 ;C$ (B};AT 15,27 ;A$ (C) 

PRINT AT 18, 12;" ASS:" 

PRINT AT 18,16;FS (E) 

PAUSE 2000 

POKE 16437,255 

CLS 

GOTO 600 

CLS 

PRINT AT 2,3;"FALECEU ESTA MANHA O N0SS0" 

PRINT AT 3,1;"QUERIDO POR MOTIVO DE" 

PRINT AT 3,9;E$ (E) 

PRINT AT 4,10;" EM DEMASIA". 

PRINT AT 4,1 ;A$ (D) 

PRINT AT 5,3;"SEU PARENTE MAIS PROXIMO NOS" 

PRINT AT6,1;"ENVIOU ESTA COMO PRO-" 

PRINT AT 6,13;D$(A) 

PRINT AT 7,1;"FUNDOSINALDE AFETO." 

PRINT AT 8,3;"0 FALECIDO DEIXOU ESTA NOTA:" 

PRINT AT 10,3;"AGORA JA NUM OUTRO MUNDO TO-" 

PRINTAT11,1;"DOCHEIODE E TAMBEM" 

PRINT AT 11,13:C$ (C) 

PRINT AT 12,1 ;"CHEI0DE FICO FELIZ" 

PRINT AT 12,10;D$ (C) 

PRINT AT 13,1;"EM DEIXAR MINHAS PARA" 

PRINT AT 13,18;D$ (A) 

PRINT AT 14,1;"T0D0S0S DA MIIMHA FA-" 

PRINT AT 14,10;A$ (B) 

PRINT AT 15,1;"MILIA DESPECO-ME COM UM GRANDE" 

PRINT AT 16,11;"DECALOROSO AFETO". 

PRINT AT 16,1;C$ (B) 

PRINT AT 17,3;"DEIXANDO EM ESPECIAL PARA" 

PRINT AT 18,1;"MINHA ESPOSA TODAS AS" 

PRINT AT 18,7;B$ (B) 

PRINT AT 19,1 ;"MINHAS" 

PRINT AT 19,8;D$ (B) 

PAUSE 1500 

POKE 16437,255 



O 
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o 
o 
o 
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o 
o 
o 
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^ 2290 CLS ^ 

sJ 2300 GOTO 600 ^ 

3000 CLS 

3010 PRINT AT 2,3;"QUER1D0 DEIXEl NOSSO" _ 

O 3020 PRINT AT 2,1 1;E$ (F) O 

3030 PRINT AT 3,1 1;"PRESONA" 

3040 PRINT AT 3,1 ;C$ (A) 
r\ 3050 PRINT AT 3,20;D$ {D) Q 

W 3060 PRINT AT 4,1;"NA0SE ESQUECA DE TIRAR AS SUAS" 

3070 PRITN AT5,11;*'DO PARA EV1-" 

.-. 3080 PRINT AT 5,1 ;D$ (A) ^ 

U 3090 PRINT AT 5,14;C$ (D) ^J 

3100 PRINT AT 6,1;'TAR QUE SE ESTRAGUEM." 

3110 PRINT AT 7,3;"LEVE ATE OSR. ESTE" 

O 3120 PRINT AT 7,18;E$ (E) O 

3130 PRINT AT 8,12;'CHEI0DE PA-" 

3140 PRINT AT 8,1 ;C$ (A) 
r\ 3150 PRINT AT8,21;AS (A) Q 

3160 PRINT AT 9,1 ;"RA LAVAR." 

3170 PRINT AT 10,3;"ESCOVE SEU ANTES DE" 

^ 3180 PRINT AT 10,14;E$ (F) p. 

^ 3190 PRINT AT 11, 1;"LAVAR SUAS" ^ 

3200 PRINTAT11,12;DS (A) 

3210 PRINT AT 13,4;*TCHAU. E UM GRANDE" 
O 3220 PRINT AT 13,23;C$ (C) O 

3230 PRINT AT 14,1;"DE SUA QUE TE AMA." 

3240 PRINT AT 14,8;B$ (B) 
Q 3250 PRINT ATI 7,9;"ASS:" O 

3260 PRINT AT 17,14;F$ (F) 

3270 PAUSE 2000 

r^ 3280 POKE 16437,255 f\ 

^ 3290 CLS w 

3300 GOTO 600 

4000 CLS 
r> 4010 PRINT AT 2,4;"PERDEU-SE UM QUE" Q 

K ~ J 4020 PRINT AT 2,17;C$ (A) 

4030 PRINT AT 3,1 ;"ATENDEPELO NOME DE" 

4040 PRINT AT 3,21;E$ IE) ^ 

O 4050 PRINT AT 5,4;"ELE TEM UM PEQUENO" U 

4060 PRINT AT 5,23;C$ <B) 

4070 PRINT AT 6,1 ;"ATRAS DA ORELHA. " 
O 4080 PRINT AT 8,4;"CUIDAD0ELE ATACAQUANDO VE" O 

4090 PRINT AT 9.1 ;"UMA" 

4100 PRINT AT 9,5;B$(B) 
S~\ 4110 PRINT AT 11,4 ;"NAO DE PARA ELE," Q 

W 4120 PRINT AT11,11;A$ (A) 

4130 PRINT AT 12,1;"P0IS ELE SO COME" 
„ 4140 PRINT AT 12,18;BS (D) ^ 

O 4150 PRINT AT 14,4;"POR FAVOR ENTREGAR NA RUA" U 

4160 PRINT AT 15,1;"DAS SEM NUMERO" 

4170 PRINT AT 15,5;B$ |C) 
O 4180 PRINT AT 17,4;"FALAR COM DONA" O 

4190 PRINT AT 17,19;FS (F) 

4200 PAUSE 2000 
Q 4210 POKE 16437,255 Q 

4220 CLS 

4230 GOTO 600 7 
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V 




DINAMITE 



Neste jogo voce" passard a trabalhar numa f£brica de dinamite, mas 
nSo conx) urn carregador de caixas, e sim como agarrador de caixas, 
infelizmente com urn colega de trabalho um pouco descuidado, pois 
ele simplesmente atira caixas lotadas de dinamite para que voce as 
pegue. 

Como hoje em dia nao se deve confiar em ninguem (nem em si 
mesmo, pois de vez em quando voce morde a Ifngua), NAO espere que 
seu "amigo" atire as caixas em suas mSos, mesmo porque ele na"o ofara*. 
talvez uma vez ou outra. 

Seu objetivo maior 6 "salvar sua pele", evitando que as caixas caiam 
no chSb, caso contr^rio "meus pesames". 

V00S60" " (ESPACO) 

As caixas sao o "Q" (ASTERISCO INVERSO) 

Seus controles sffo: 

"5"ESQUERDA 
"8"DIREITA 

BOA SORTE (ca* entre rids... com amigos como esse pra que ini- 
migos?) 

PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
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o 
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o 



1 REM DINAMITE 

5 REM SIDNEY PARETTI 

10 RAND 
20 SLOW 

26 FORJ=0TO20 

27 PRINT AT J,0;" 




28 NEXT J 

30 PRINT AT 0,0;"I 



milium 

35 PRINT AT 1,0;" | 



ezxx 



m 



40 PRINT AT 21,0;" 




55 

70 

80 

90 

100 

110 

111 

120 

125 

130 
140 
150 
160 
175 
180 
18b 
190 
200 
210 
300 



PRINT AT 21 ,18;"P0NT0S: 

LET PO - 

LET K = 

LET P = 14 

FOR N = 0TO 10 

LET S = INT {RND ■ 30) - 1 

LETPO = PO + 10 

FOR F= 0TO20 

IF F = 20 AND S = P THEN PRINT AT 21,18;"PONTOS:";AT 

21,27;PO 

IFP< 0THEN LETP = 

IFP> 28 THEN LET P = 28 

IFINKEY$-"5"THEN LET P - P - 1 

IFINKEY$ = "8"THEN LETP =P+1 

IF F =20 ANDS<_> P THEN GOTO 340 

PRINT AT F,S;" r 

PRINT AT fJSfl 

PRINT AT 20,P;*' 

NEXTF 

NEXTN 

PRINT AT 0,0;" 






i 






301 PRINT AT 1,0;" 






mum 



302 PRINT AT 19,0;" 

303 PRINT AT 20,0; 



305 PRINT AT 9,7;"PARABENS VOCE FEZ" 




309 PRINT AT 11,10;"PONTOS: 

320 PAUSE 120 

325 POKE 16437,255 

330 GOTO 431 

340 FOR G =0 TO 6 

342 PRINT AT 20,S;" SSS 

346 PRINT AT 19,S-3;" 

347 PR I NT AT 18,S;" 

348 PRINT AT 17.S-1;" 

349 PRINT AT 1 6,S-2," 



';AT11,18;PO 




o 
o 
o 
o 
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o 
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350 PRINT AT 15,S-2;" 

351 PRINT AT 14,S- 

352 PRINT AT 13,S;" 

353 PRINT AT 12,S;"F 
403 NEXTG 

406 FOR N= TO 21 

407 PRINT AT N,0;" 




408 

4<B9 

410 

415 

420 

431 

432 

435 

436 

437 

438 

439 

490 






NEXTN 

LETPO = PO-10 

PRINT AT 11,5;"SEUSPONTOSFORAM 

PAUSE 120 

POKE 16437,255 

PRINT AT11,3;"QUERJOGAR DE NOVO (S/NI?" 

INPUT X$ 

IF X$ = "S" THEN GOTO 437 

IF X$ = "N" THEN GOTO 439 

CLS 

RUN 

FOR M -0TO21 

PRINT AT M,0; 



'*;AT11,25;PO 




500 NEXTM 

520 FORG= 0TO21 

535 SCROLL 

540 NEXTG 

541 STOP 

542 SAVE"DINAMITE' 

543 STOP 



DIGIKIT • DIGIKIT • DIGIKIT 



SEGUINDO A LINHA E A FILOSOFIA COMERCIAL DA EDITORA FITTIPALDI DE, SEM- 
PRE COLOCAR AO ALCANCE DOS L6IT0RES O MATERIAL SUFICIENTE PARA QUE SE 
POSSA COMPROVAR, ESTUDAR E ATE MESMO TIRAR PROVEITO DE FORMA DEFINITIVA 
DAS MATERIAS CONTIDAS NAS REVISTAS. A REVISTA s^TC * ftft*1 LANCA SIESTA 
EDICAO DOIS SENSAClONAiS KITS PARA MONTAR. KITS fcSTtS, QUE SERAO OS PRIMEI- 
ROS DE UMA GRANDE LINHA PRETENDIDA PELA DIRECAO DA EMPRESA E QUE, DE 
CERTO MODO VAO AGRADAR A MAIORIA DOS AMIGOS LEITORES. 

OS KITS SERAO SEMPRE COMERCIALIZADOS A PRECO COMPATlVEL COM A REALI- 
DADE COMERCIAL DA PRACA, E. VENDIDOS POR MEIO DE REEMBOLSO POSTAL PELA: 
DIGIKIT COMERCIO E EXPORT AQ&0 DE COMPONENTS ELETRONICOS LTDA, QUE £ UMA 
EMPRESA DO CRUPO FITTIPALDI, PORTANTQ COM IDONEIDADE COMPROVADA. 

NAO PERCA TEMPO, PREENCHA O CUPOM E FApA O SEU PEDIDO HOJE MESMO. 



AV AMADOR 

BUENO DA 

VEIGA, 4 176 

- CEP 03652 - 

SAO PAULO 

sp 



SUPER FONTE ■••■' * RfcftD 

PROJETADO ESPECIALMENTE PARA RESOLVER OS PROBLEWAS DE ALIMENT ACAO DO 

SEU MICRO OU V'OEO GAMt DE QUALQUER MARCA. CrS 36.000.00 



TAPE LOADER 
INCRIVEL SOLUCAO PARA GRAVACAO E 
REPRODUCAO DE PROGRAMAS EM FITA 
CASSETE PERMITINDO PASSAGEM DE FITA 
PARA FITA, MESMO EM PROGRAMAS FECHA 
DOS. Cr$ 15-500-00 






SIM, DESEJO RECEBER PELO REEMBOLSO POSTAL O KIT 

PELOQUAL PAGAREI A OUANTIA DE CrS 

NOME , . , 



MAIS DESPESAS POSTAIS, 



ENDERECO N Q . . . 

BA1RRO CIDADC EST A 00 ! . 

CEP NQdoR. G , . 



o 
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o 
o 
o 
o 
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o 
o 
o 
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o 
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o 
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Como em tudo que fazemos na vida sempre existe uma barreira, 
esto jogo nfib fica otrds. Seu objetivo 6 eliminar a maior barreira mutante, 
isto 6, mutante porque cresce e diminui, que fica bem abaixo no video, 
mas para eliminar essa barreira voce tern que evitar as outras barreiras 
(tamWm mutantes) existentes no centro do video. Em suma, voce* deve 
desviar de barreiras para eliminar outra barreira (bem de acordo com 
a nossa vida cotidiana). 

Caso acerte uma barreira indeseja*vel, havera" destruicao total de 
suas estruturas (igualzinho as nossas vidas...), rnas, se conseguir eliminar 
a barreira principal sera um homem bem sucedido (no jogo, bem enten- 
dido„.) marcando uns mfseros pontos (Ha!... parece piada). 

Como voce e um homem que nao para (l6gico, na tela) tern que 
ser bastante astuto para eliminar a barreira principal. Ha* uma pequena 
vantagem, se estiver se deslocando para a esquerda e apertar a tecla 
correspond en te <) esquerda, ira* mais rdpido para a esquerda, caso aperte 
a tecla correspondente d direita, voce" f icara" im6vel, e o mesmo aconte- 
cerd para a direita, mas s6 que com os controles correspondentes ao 
movimento. 

Voce 6" o "O" 

A barreira principal 6 o "O" (ASTERISCO INVERSO) 

As barreiras indesejaveissaoo *'(|" (ESPACO INVERSO). 

Tente fugir A regra e eliminea barreira principal (para tornar o jogo 
mais emocionante imagine que essa barreira seja o dinheiro). 

PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 
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1 REMBARREIRA 

2 REM SIDNEY PARETTI 
5 SLOW 

D|MD$ (6,3) 
LET PO = 
LETC = 3 
LET B = 20 
LETF=27 
LET A =28 
LET i = 1 
LET E =1 
LET D = 1 
LET G ■ 1 
LETJ = 1 
LETK=5 
LETW = 13 
LETO = 1 
LET R = l 
LET P = 26 
LETD$(1) = 
LET D$ (2) ■ 




6 
7 

10 
15 
20 
21 
22 
23 
24 
25 
30 
31 
32 
33 
34 
40 
41 
42 

43 LET D$ (3) = "§ 

44 LETD$(4) = "S!i" 
4<5 LETA$: ■■■»»»■■»■■■»■■■!!! 
50 FOR Y-1 TO 21 
60 PRINT AT YJtfWB 
70 NEXT Y 

80 PRINTAT7,0;A$;AT10,0;A$;AT13,0;A$;AT16,0;A$;AT 
19,0;A$ 

100 FOR N=0TO20 

101 LETC = C+I 

102 LETB = B + E 

103 LETA = A+D 

104 LET F = F + G 

105 LTEP = P + J 

106 LETK = K + 

107 LETW=W + R 

110 IF P< 0THEN LETP-0 

111 IF P> 28TEHN LET P = 28 

115 IFC-2ORC=10THEN LET I = I * - 1 
I20 IF B = 80R B = 21 THEN LET E = E * -1 
I25 IF A = 20 OR A = 29 THEN LET D = D * - 1 
130 IF F=0OR F- 29 THEN LET G = G *- 1 

135 IF P = 0OR P = 28THEN LETJ =J *-1 

136 IF W=120RW = 24THEN LET R = R * -1 

137 IF K = 0OR K = 12 THEN LET = O *-1 
I45 IF INKEY $ = "0"THEN GOSBU 1500 

151 IF INKEY $ = "5" THEN LET P*P-1 

152 IF INKYE $ = " 8" THEN LET P = P + 1 

I60 PRINT AT 0,0;" ■■■■■■^^^■■^■^^M 
I70 PRINT AT 19,A;D$(1> 
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187 
190 
200 
500 
1500 
1501 



1502 
1600 
1700 
1710 

1800 
2000 
2100 
3000 
3100 
3500 
3510 
3520 
3530 
3535 

3536 
3540 



PRINT AT 7 / W;D${1) 

PRINT AT 21,F;D$(2) 

PRINT AT 0,P;"O" 

GOTO 100 

FOR L = 0TO21 

IF L = 19 ANDP> =AOR L = 16 AND P> ■ B AND P<21 

OR L= 13 AND P> =C AND P< 10ORL-10ANDP> =K 

ANDP< 12 OR L = 7 ANDP> =WANDP< 24 THEN GOTO 

2000 

IF 1 = 21 AND P>=F THEN GOTO 3500 

PRINT AT L,P;D$(3);AT L,P;D$ {4) 

NEXTL 

PRINT AT 7,0;A$;AT 10,0;A$ AT 13,0;A$;AT 16,0;A$;AT 

19,0;A$ 

RETURN 

FOR X=0TO21 

PRINTATX,0;"DESTRU ICAO TOTAL" 

NEXTX 

GOTO 2000 

FOR F=0TO21 

LET PO = PO + 1 

PRINT AT 3,1 ;PO 

NEXT F 

PRINT AT 7,<J;A$;AT 10,0;A$;AT 13,0;A$;AT 16,0;A$;AT 

19,0;A$ 

PRINT AT 21,0/1 

RETURN 



ATENCAO: NA LINHA 2100 TANTO AS LETRAS COMO OS ESPA- 
gOSSAOEM INVERSO. 
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Prepare-se, pois a Terra esta* prestes a ser invadida pelos seres 
EXTRA-TERRENOS, ou mais especificamente, pelos "NHAKUS". 

Voce 1 como um bom terrSqueo deveevitar a invasaodos "NHAKUS", 
que por sinal sao muito espertos e possuem as bombas da temi'vel "NHA- 
KULOSE" (doenca fatal aos terra*queos). 

Antes de tentarem invadir a Terra, os "NHAKUS" soltam bombas 
de camuflagem, bem parecidas ou iguais a "NHAKA" {NAVE MAE), 
principal invasora que voce" deve deter com suas bombas "ANTI-NHA- 
KA". 

Cada "NHAKA" que voce acertar ganhara" 500 pontos, caso nSo 
consiga a I can car uma "NHAKA" em tempo ha* um refugo de um tiro 
no ar, s6 que perdera* 1000 pontos, nab se assuste se seu placar for nega- 
tivo, pois voce tern uma tolerdncia de ate -5000 pontos, caso contrdrio, 
sera* um portador da famosa doenca chamada "NHAKULOSE". 

Voce" 6 o "X" 

Seus controlessfib: 
"5" ESQUERDA 
"8"DIREITA 
"0"TIRO. 

CUIDADO NAO SEJA UM NHAKULOSO. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATIVEIS 
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1 

2 

5 

6 

10 

20 

30 

100 

110 

120 



REM NHAKUS 

REM SIDNEY PARETTI 

RAND 

POKE 16418,0 
LETP = 
LET Y = 11 
FAST 



" 



FOR F =0 TO 767 
PRINT CHR$ 128; 
NEXTF 

125 PRINT AT 22,1 ;"PONTOS: 

130 SLOW 

135 LET N = INT (RND* 28! 

140 FOR F =0TO21 

150 IF Y< 0THEN LET Y = 

160 IF Y > 28 THEN LET Y =28 

170 PRINT AT RND * 20,30 * RND; CHRS INT (RND 

180 IF F ■ 8 THEN PRINT AT 22,18; "CUIDADO" 

185 IF F = 12 THEN PRINT AT 22,18;" 

190 IF INKEY$ = "5"THEN LET Y = Y - 1 

195 IF INKEY$ = "8"THEN LET Y = Y + 1 

200 IF INKE>$ = "0"THEN GOTO 1000 

210 PRINT AT 20,Y;"BXH" 

220 PRINT AT F,N;" ■ ■ ";AT F,N; # 

230 IF F = 20 TEHN GOTO 2000 

240 NEXT F 

1000 FOR C = 20 TO F STEP- 1 

1010 IF Y - N AND C - F THEN LET P = P + 500 

1020 IFY< >N ANDC=FTHEN LET P = P - 750 

1030 IF P< 1000 THEN PRINT AT 22,8;" 

1040 IF P < -5000 T HEN GO TO 2000 

1050 PRINT AT C,Y;"BM"; ATC ' Y ;" 

1060 NEXTC 

1065 PR I NT AT 22,8 ;P 

1070 GOTO 135 

2000 FOR F =0TO20 

2010 PRINT AT F,0;"| 



10) 




2020 NEXTF 

2030 PRINT AT 11,4;"AGORA VOCE E UM NHAKULOSO" 

2040 PRINT AT RND # 2ft30 * RND; CHR$ INT (RND * 10) 

2050 GOTO 2040 

2060 STOP 

2070 SAVE "NHAKUS" 

2080 STOP 
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Neste jogo voce sera um ladrSb, e um ladrSo motorizado, pois 
possui um carro com motor BASIC, logico, afinal de contas voce 6 um 
ladrSo tno jogo, bem entendido), e na"o pode possuir um motor ASSEM- 
BLY (pelo menos por enquanto). 

Na tela aparecera' nove quadrados, sendo que o centro de cada um 
deles possui uma avenida na vertical (constitui'das de caracteres ponti- 
Ihados) que sa"o fechadas na parte superior. Estas avenidas sd podem ser 
ultrapassadas de baixo para cima. IMelas estSb todos 05 bancos da cidade 
que vocfi ird roubar, mas pelas outras ruas existem em alguns pontes, 
policiais que guardam a cidade. Como seu tempo 6 limitado, tera* que 
planejar o melhor itinera"rio para executar seus furtos. NSo tente roubar 
uma avenida duas vezes, pois as avenidas roubadas sera"o protegidas 
por portdes eletrificados, o que ocasionard sua mdrte por eletrocussSb. 
Seus controles sa"o os do joystick: 

"5"ESQUERDA 
"8"DIREITA 
"6" PARA BAIXO 
'7" PARA CIMA 
Seja um bom larirSo, mas s6 no jogo. 



PROGRAMADESENVOLVIDOPARAA LINHA SINCLAIR E COMPATiVEIS 
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10 
20 
30 

40 

50 

55 

60 

70 

72 

74 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 



1 REMSEU LADRAO 

5 REM SIDNEY PARETTI 

RAND 

POKE 16418,0 

LET PO = 

LET X = 

LET Y = 

LET U = 200 

LET C = 

LETD = INT(RND*25) 

LET A = 21 

LETB = INT(RND *28)+2 

LET AA = 6 

LET AB = 6 

LET AC = 6 

LETBA= 16 

LETBB = 16 

LETBC = 16 

LET CA = 26 

LET CB = 26 

LET CC = 26 

LET S = 7 

LETI = INT(RND*30) 

LETK = 14 

LETQ=INT((RND # 29)+2 

LETT = 21 

LETP = INT(RND*31) 

LET V - 5 

LET = 15 

LET W = 25 

LET A$ = 




270 LETB$ = 

II I 

280 LETC$ = " 



290 PRINT AT 1,0;AS;AT8,0;A$;AT 15,0;A$ 
300 FOR G = 2T0 6 

310 PRINT AT G,0;B$;ATG + 7,0;B$;ATG+ 14,0;B$ 
320 NEXTG 

330 PRINT AT 6,0;C$;AT 13,0;C$;AT 20 ( 0;C$ 
340 PRINT AT 22,1 ;"PLACAR:";AT22,16;"TEMP0:" 
345 PRINT AT S,I;"G";AT K,Q;"G";AT T,P;"G";AT A,B;"G";AT 
C,D;"G" 

350 FOR F = 0TO U 

351 LETU = U-1 

352 IF U <10 ADN U>8THEN PRINT AT 22,22;" 

353 IF U < 100 AND U> 98 THEN PRINT AT 22,22;" 
355 PRINT AT 22,22;U 

360 IFX<0THEN LET X = 

370 IFX>21THENLETX = 21 

380 IF Y<0THEN LET Y - 

390 IF Y>30THEN LET Y = 30 
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510 

520 
530 
540 
550 
560 

570 

580 

600 

610 

620 

630 
650 
660 
1010 
1020 
1030 
1040 
1050 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1255 
1260 
1500 
1510 
1520 
2000 
2010 
2020 
2030 



IF X = SAND Y= I OR X=KAND Y = QOR X-TAND Y~ P 
OR X = A AND Y = BORX = CANDY = D THEN GOTO 2000 
IF INKEYS = "5" AND X/7 = INT (X/7) THEN LET Y = Y - 1 
IF INKEYS = "8" AND X/7 = INT (X/7) THEN LET Y = Y + 1 
IF INKEY$ - "6" AND Y/10= INT (Y/10) THEN LET X = X + 1 
IF INKEYS = "7" AND Y/5 = INT (Y/5) THEN LETX-X-1 
IF Y= VANDX= 1 OR Y = V AND X = 8 OR Y= VANDX = 
15 THEN GOTO 1000 

IF Y=OANDX = 1 ORY = ANDX = 8 0R Y=OANDX = 
15 THEN GOTO 1000 

IF Y = WANDX = 1 OR Y = WAND X = 8 OR Y = W AND X = 
15 THEN GOTO 1000 

IF X = 6ANDY = AAORX = 6AND Y = BA OR X = 6 AND Y = 
CA THEN GOTO 1500 

IF X= 13 AND Y-ABOR X= 13 AND Y - BB OR X - 13 AND 

Y = CB THEN GOTO 1500 

IF X = 20 AND Y = ACORX=20AND Y = BCOR X = 20AND 

Y = CC THEN GOTO 1500 

PRINT AT X,Y;"H";AT >W " 

NEXTF 

GOTO 2500 

LETR = INT(RND" 12) 

IF R>6THEN LETPO = PO + R 

IF R<2THEN LET PO = PO - R 

IF PO > 10 THEN PRINT AT 22,8;" 

I F PO > 100 THEN PRINT AT 22,8;" 

IF X= 1 AND Y= VTHEN LET AA = 5 

IF X = 8 AND Y = VTHEN LET AB - 5 

IF X- 1 5 AND Y = VTHEN LET AC = 5 

IF X= 1 AND Y = OTHEN LET BA = 15 

IF X = 8 AND Y= OTHEN LETBB = 15 

IF X= 15AND Y = OTHEN LETBC = 15 

IF X = AND Y = W THEN LET CA = 25 

IF X = 8 AND Y = W THEN LET CB = 25 

IFX=15ANDY= WTHEN LETCC = 25 

PRINT AT 22,8;PO 

PRINT AT 6,AA;"B" 

PRINT AT 13,AB;"«" 

PRINT AT20,AC;"fl" 

PRINT AT 6,BA;*'fl" 

PRINT AT 13,BB;"fl" 

PRINT AT 20,BC;"H" 
PRINT AT 6,CA;' 
PRINT AT 13,CB; fl ! 
PRINT AT 20,CC;"| 
LET X = X - 1 
GOTO 350 

PRINT AT 12,5;"VOCE FOI ELETROCUTADO" 

PRINT AT 12,5;"VOCE FOI ELETROCUTADO" 

GOTO 1 500 

PRINT AT 12,9;"VOCE FOI PRESO" 

PR I NT AT 1 3 f 9;VW/WW" 

PRINT AT 13,91' Wftrtftftrtft" 

GOTO 2010 
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2500 PRINT AT 12,8;"SEU TEMPO ACABOU." 

2510 PAUSE 200 

2520 POKE 16437,255 

2530 PRINT AT 12,8,'TENTE OUTRA VEZ" 

2540 GOTO 10 

ATENCAO: NA LINHA 1510 TANTO AS LETRAS COMO OS ESPA- 
COSSAOEM INVERSO. 



\Cartuchos para AMM 




I- ADVENTURE 
2- AIRLOCK 
V AIR RAIDERS 
i- AIR SEA BATTLE 
5-AUEN 
6 A Ml DA ft 

7akmorambust 

ASTROBLAST 

ATLANTIS 

BAClltLOK PARTY (P) 

UANCK HEIST 

BARNSTORMING 

BASIC PROGRAMING (10 

BASKETBALL 

BGATEU AND tATTM (P) 

BEANY BOPPER 

BERZEK 

BOWLING 

BOXING 

BhKMUDE TRIANGLE 

BLACKJACK 
12 BRAIN GAMES (K) 
2 J BREAKOUT 
24 BRIDGE (P) 
25- BUGS 

26- CANYON BOMBER (Pt 
27 CARNIVAL 

28- CASSINO 

29- CHECKERS II 

3ft CHOPPER COMMAND 

31 CIRCUS ATARI 

32 COBRA ST1KE 
33- COCO NUTS 

34- CODE BREAKER (K) 
35 COMMAND RAID 
36- CONCENTRATION 
37 COSMIC ARK 

COSMIC SWARV 

CRACKPOTS 



4ft CRYPTS 01- CHAOS 

41- CROSS FORCE 

42- CUSTER'S RtVfcNGE 

43 DARK CAVERN 

44-DEALYDUCK 

45 D1-1MON ATTACK 

46- DEMOS TO DIAMONDS <P) 

47- DODGfEM 
4ft DEFENDER 
49- DOLPHIN 

5ft DONKEY KONC 

51- DRAGON FIRE 

St- DRAGSTER 

53- EGG MANIA (P) 

5* ENDURO 

J3- ENCUL'TER AT L-3 

S6- FANTASTIC VOYAGER 

57- FAST EDDIE 

S8- FAST FOOD 

59-FINALAPPROACH 

'.i ■ FIRE FIGHTER 

61- FISHLNG DERBY 

62- FLASH GORDON 

63- FLOGS AND FLIES 
64- FOOTBALL 

65- FREE WAY 

64- FROCGER 
6% FROST BTTE 
61- GAMAO 

65- GANGSTER ALLEY 

70- GOLF 

71- CORF 

72- GRAND PRIX 
73- HANGMAN 
7i. HAUTED HOUSE 
75- HOME RUN 

76- ICE HOCKEY 

77- INFI LTRATE 

78- INTERNATIONAL SOCCER 
79- JAWBRAKER 

80- JOURNEY SCAPE 

81-KABOON 

8i- KEYSTONE 



83- KING KONG 
84- LASER BLAST 
S3- LOST LL'GGARE 

86- LOCK'N OIASE 

87- M. A. D. 

8 S. MARAUDER 

89- MASH 

9ft MATH GRAND PRIX 

91 MEGAMANIA 

92 MINES OF MINOS 

93 MISSILE COMMAND 
94- MOUSE TRAP 

95> NEXAR 

96- NIGHT DRIVER (P> 

97- NO SCAPE 

98- OINK 
99-OTHELO 

10ft OUTLAW 

101 PACMAN 

102- PELES SOCCER 

103- PITFALL 

1 ft*- PI ACK ATTACK 

I OS- PLANET PATROL 
106- PRISAO MORTAL 
I07-Q. BERT 
108-RACQlfETBALL 
109- RAM IT 

I I ft REACTOR 

I I I RIDDLE OF THE SPHINX 
112- RIVER RAID 

1 13- SCREAMING 
114. SEAQIFST 
IISSHARCK ATTACK 
116-SHOOTIN'GALLERY 

in- SKIING 

US- SKY DIVER 
1 19- SKY JINKS 
120- SLOT RACERS 
121- SNEAK 'IN HEE< 
122- SNOOKER 
12J-SPACEATTACK 



1 24- SPACE CAVERN 
US- SPACE CHASl 
1 16- SPACE INVADERS 
127- SPACE JOCKEY 
1 28- SPACE WAR 
129- SPIDER FIGHTER 
ISO- SPIDER MAN 
1)1- SNAKE 
I »• STAMPEDE 
liJ-SIAK MASTER 
134- STAR SHIP 
135- STAR VOYAGER 
Ufr STAR WARS 

137- SUB SCAN 

138- SUPER BREAKOUT 
1*9. SUPER FOOTBALL (Pt 
14ft SUPERMAN 

141- SURROUND 
I42-TACSCAN(P) 

143- TAPE WORN 

144- TENNIS 

145- THRESHOLD 

146- LOWERING INFERNO 

147- TRICK SHOOT 

148- TOUPEIRA(GOPHERl 
I49-TR0N 

150- VENTURE 

151- VIDEO CHECKERS 

153- VIDEO CHESS 

1S3- VIDEO OIJMPCS IP) 

154- VIDEO PINBALL 

155- VOLLEYBALL 

156- WABBIT 

157- WAR LORDS (P) 
158- WAR PLOCK 
159- WIZARD OF WOR 
16ft WORM WAR I 
161- WORD ZAPPHR 

162- YAK'S REVENGE 

163- X-MAN 
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PAGAMENTO ANTECIPA0O 
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SIM, DESEJO RECEBER PELO REEMBOLSO POSTAL O(S) CARTUCHO(S) DE N0<S> 



SEM OESPESAS DE POSTAGEM, ENCOMENOA PELA QUAL PAGAREI COM CHEQUE VISADO D, 
VALE POSTAL □, A FAVOR DE: DIGIKIT COMERCIO E EXPORTACAO DE COMPONENTES 
ELETR0NICOS LTDA. - AV. AMADOR BUENO DA VEIGA, 4.176 - CEP 03652 - SAO PAULO - 
SP - A IMPORTANCE DE AP EN AS Cr$ 23-000. 00 POB UNIDADE. 



NOME 



NO 



ENDEREQO 

BAIRR0 CIDADE ESTADO 

CEP NO do R. G 

^ ASSINATURA 
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MILIONARIO 




Todos n6s temos a incn'vel tendgncia de ser urn mil ionaVio (na"o sei 
por que!?). 

Neste jogo vocfi sera" um famoso milionaVio (ja* e* alguma coisa...), 
muito desconfiado e tamb^m muito precavido, pois leva seu dinheiro 
desde sua casa at£ o banco, sozinho e sem qualquer escolta. Como em 
toda metropole que preste, tern por obrigacSb possuir "alguns" ladroes 
em toda parte, este jogo tamtam possui ladrSes, pois ele Simula uma 
metr6pole. 

Seu objetivo 6 evitar ser roubado durante o trajeto, o que sera* um 

pouco diffcil, jS que existem ladrfies que simplesmente surgem do "na- 
da". 

Como voce" pode carregar seu dinheiro aos poucos, tera" que fazer 
va"rias viagens. Se tiver um pouco de sorte, ou melhor, muita sorte, 
conseguira' com muita manobra fazer maisdo que uma viagem. 
Seus controles sa~o os mesmos do joystick: 
'VESGUERDA 
"8"DIREITA 
"6"PARABAIXO 
'7"PARACIMA 
PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATlVEIS 
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3 RAND 

4 SLOW 

6 FORN = 0TO21 

8 N,0;"H^BHHHBHMBHHHHHMHi 

9 NEXTN 

10 FOR N= 1 TO 4 

20 PRINT AT N,0;A$;AT N + 5,0;A$;AT N + 10,0;A$;AT N + 15,0; 

A$ 
24 NEXTN 
30 LETPO = 

32 LET N = 

33 LET V = 
43 LET W = 30 
45 LET M = 20 

400 FOR F = 0TO31 

401 LETB= CODE INKEY$ 

402 IFN <0THEN LET N=0 

403 IFN>20THENLETN=20 

404 IF V<0THEN LETN = 

405 IFV>30THEN LETV = 30 

410 LET S = INT (RND * 20) - N + N 

411 LETK=INT(RND *30)-1 

428 IF B = 33 AND N/5 = INT (N/5) THEN LET V = V- 1 

429 IF B - 34 AND V/5 = INT (V/5> THEN LET N = N + 1 

430 IF B = 35 AND V/5 -INT (V/5) THEN LET N = N - 1 
440 IF B = 36 AND N/5 - INT {N/5) THEN LET V = V + 1 

445 IFN = M AND V = WTHEN GOTO 1500 

446 IF N=S THEN GOTO 1550 
450 PRINT AT S,K;" # " 
500 PRINT AT N,V;"0";ATN # V;"H" 
515 PRINT AT M,W;" H " 

NEXTF 



600 
800 
1500 
1503 
1504 
1505 
1518 
1520 



m* 



m 



BANCO ^^" 







GOTO 400 
PRINT AT 11,11;" 
PRINT AT 12,11;" 
PRINT AT13/I1;" 
PRINT AT 14,11;" 
FORQ = 0TO9 
LETPO = PO + 10 

1523 PRINT AT 14,14;PO 

1524 NEXTQ 

1525 GOTO 32 

1550 LETA$ = " LADROES 

1551 FORN-0TO21 

PRINT AT N < 0;"iBHHHHBaHBHHM /v 

1553 NEXTN 

1554 FOR N= 1 TO 4 

1555 PRINT AT N,0;A$;AT N + 5#;A$;AT N + 10,0;AT N + 15,0;A$ 

1556 NEXTN 

1557 print AJ :: KQrM^mmmmmmmammamam^m*^ 

1559 print at 10,4;"seus pontos foram:";po 

1560 print atii,0;"hbhhhhh^bhbbbm^' 

1570 GOT0 1 



LADROES LADROES 
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Se voce" e um aut€ntico viciado em vinte e um, e costuma jogar a 
dinheiro ao ponto de apostar sua mSe (e perder), nSb corra mais este 
risco, passe a jogar com seu microcomputador. Mesmo jogando a dinhei- 
ro, jamais saira" perdendo. pois seu computador nab poder£ cobrd-lo, o 
mdximo que podera* acontecer e" ser desmoralizado por ele. 

Este programs sorteia cartas, abertas ou fechadas, desafiando-o 
para uma nova partida, e duvida ser capaz de perder na maioria das 
vezos. 

S6 ha* um problema, se ganhar do seu micro nab conte a ninguem, 
pois dirab que voce* 6 um usurpador de micros indefesos, da mesma for- 
ma, se perder dirab que perdeu para uma insignificante "maquininha de 
calcular". 

NOTA: Nab esmurre seu micro se perder dele (custa caro). 
PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATlVEIS 



X CL3* CLEAR2000 

2 PfVrMTSTRTNCi*<62,6.1) 

TE E UM "; :PRINiT$>l*6A+39:. "STRINGS (24, M > 

4 PRINT.i)77:^64,5TRINB*(62 ? 61) 

5 PRTNT34*64, "ESTE JOSO CONSJSTE EM UM SORTEIO 
DB 1 A 5 CARTAS, CUJA JNTFNSAO F* DE T!:N*f<=AR FAZ 

ER MAI OR NUMEROS DE POSSIVSL BEM ULTRA-PASBAR 
21- "? 

6 PRTNT»7*64, "PODENDO OU NAO TER A PRIMEIRA CAR 
iTA ABERTA OU FECHADA.AS CARTAS TEWAD BEU8 VALOR 
WB BE 1 A 10 N0RMAl.MENTE.SE.NDO QUE O VALETE=J,0 

Rtil=K E A RAIMHA=D 7FRAO SEUS VALQRES IGUAIS A 
70 "5 
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7 PRTNT.'dl 1*64, "OS NAIPES SERAO REPRESENTADOS PEJ 
LAS SUAS RESPECTIVAS INICTAIS. " * 

B F0RAl=lTtUuO:PR[NTn)13*64+2,STRtNG*(60,32> : FOR 
A2=1T0100:NEXTA2 : PRINT«)13*64+2* "P / COMECAR PRE 
S5I0NE A BARRA DE ESPACO- "* : F0RA3 =1T0100: NPXTA3 
:A5S=INKEY*: IFA5*=CHR* (321 THEN 10 ELSE NEXTAl 
<? PK'JNT:D15*64, STRING* (62,61) 

10 CLS: PRINT5TRINIG* (62*61 >: PRINT38+64* "QUER CAR- 
TA" ! :PRINT37*64+15. " ABERTA<DIGITE-1 >. "t I PRINT39 
+64+15, "FECHADA <DI6ITE-2>. "5 

11 A6*=INKEY*s IFA6* = H, 'THEN 11 

12 IF A6*="1"THEN 216 

13 IF A6*="2"THEN 14 

14 CLS:W=O:0=O 

15 FOR U=1T06 

16 RANDOM 

17 I-RND<13>iN-RND<4> 

18 ON U 60SUB 175*151*157*163,169 

19 IF U=1THEN NEXTU 

20 ON I60SUB 1 1 1 , 1 15* 1 IB* 121 * 124* 127* 130* 133* 13 
6, 139* 142* 145* 14B 



UI=V+9 

w=v+s 

W=V+7 

SOMA = ";W; 



C2=W:W=C2+I 

IF 1=11 THEN 
TF f-12 THEN 
TF 1=13 THEN 

F-RINT.?,M4.*64f42* 

IFU=6 THEN 33 

PRINTS 14*64+2* "DE5EJA MAIS CARTAS <S/N)?."; 

A3*=INKEY*: IF A3*=""THEN 29 

IF A3*="N" THEN 33 

TF A3*="S" THEN PRJNT314*6A+2, STRING* (30* 32) 
: NEXTU 

32 TP 7 A3*O"S"0R A3*< >"N" THEM 28 

33 PRINTS 15*64 + 1* "VOCE AINDA TEM A CARTA OCULTA* 
GGSTARIA DE VE-]LA (S/N>?."5 

34 A4*»INKEY*s IF A4S=""THEN 34 

IF A4*="S" THEN 38 

IP A4*="N" THEN 7Q 

IF A4*<>"5" OR A4*<>"N" THEN 33 

IF W*2l THEN 7C> 
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24 

25 

26 

27 

28 

29 

30 

31 



35 

36 

37 

3B 

39 

40 

41 

42 

43 

44 

4? 

46 

47 

48 

49 

50 

51 

rr-2 
53 
554 
55 



'j****; 



ROTINA DA CARTA OCULTA 



N=RND(4> 



**#* 



R^RND(13> 

GOSUB 175 

BOSUB 203 

IF R=ll THEN POKEG* 74= POKEH* 74 
IF R-12 THEN POKEG* 81 : POKEH* 81 
IF R=13 THEN POKEG* 75: POKEH* 75 
IF R=l THEN POKEG, 49= POKEH* 49 
IF R=2 THEN POKEG* 50: POKEH. 50 
IF R=3 THEN POKEG* 51 = POKEH* 51 
IF R=4 THEN POKEG* 52: POKEH. 52 
IF R=3 THEN POKEG* 53: POKEH* 53 
IF R=6 THEN POKEG* 54: POKEH* 54 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



23 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 

o 

o 



24 



56 IF 

57 IF 

58 TF 
5? IF 
KEH+1 
60 
61 
62 



R*7 THEN POKES? 55«P0KEH? 55 

R=8 THEN POKES>56:POKEH,56 
R=9 THEN P0KEG,57:P0KEH,57 
R=10 THEN PQKE6>49:POKEB+l : .48:POKEH,49:P0 



63 
64 

65 
66 
67 
.68 
69 
70 

71 
72 
73 
74 
75 
76 
77 
78 
79 
BO 
fil 
82 

S3 

BA 

65 
86 
87 

t-i > 

98 
R9 



48 
D3=W 
W=D3+R 

K=W 

if R=n 

IF R=12 
IF R=13 



THEN W=K+9 
THEN W=K+8 
THEN W=K+7 
PR.INT.'i)14*t)4+42, "SOMA = 
F0RM=3 T0500: NEXTM 



w; 






ROTINA DE CARTAS DO COMPUTADOR 



* 



CLS: RANDOM 

FOR L=1T05 

S=RND(13> :T=RND(4) 

E2=Q:Q=E2+S 

Z=Q 

IF S=ll THEN Q=Z+9 

IF B=12 THEN Q=Z+8 

IF S=13 THEN Q=Z+7 

IF 0O5 THEN NEXTL 



**:+::«**.■+:: 



ROTINA DE CONDICQES 



ft:***:*** 



IF Q=15 OR 0O21 THEN PRINT38*64, "A RANCA TE 

;Q; 

PRINT#2*64,*'V0CE TEM " ;W? 

IF W=21 AND N=3 THEN FOR M=JTQ 3: PR1NT#4*64, 
STR 1 NG$ f 30 -. 32 > s FOK'D= 1 TOlOO : MFX TO : PR T NY #4*64 - " VD 
Cfc' R«NHt'U ,, ?:FaRD=lTD100:NEKTO:pRINTS5*64.STR.lN& 
*(30>32) =F0RD=rrO3O()5NF";<TO:PRlNTii)5*64, "VINTE UM 

ROVAL":KORD=lT0100:NEXTn:NEXTI1 
S-0 IF WV71 THEN FnRM=lT05:PRINT3^>*64,BTRING*<3O 
-32) :F0RD=rf01002NEXT0:PRTNT;'i)6*64 , "VHCE FSTOURP 
U" 3:F0RT>=1T0100:NEXTD:NF)<TM 

91 f'F Q>21 IHF.N FdRM= 1 T05 s PR TNT© 12*64, STRINGS (5 
0,32> 8F0R D=tT0100:NEXTD:PRIfMTa}t2*64,' , EU ESTOUf* 
EI " ; : F0R0=1T01 00: NEXTD: NEXTM 

'V? |*s w-21 AND Q>21 THEN F0RM=lTO5«PRINT®I."5*64+ 
20,BTRIIyG*t40,32):F0R0=lT0100:NEXTn:PRTNrai3+64 
+20, "NtNSUGM BANHOU"5SFORPs:tTQlOO8NEKT0s : MEXTM 

93 TF W>21 AND f=K=21 THEN BOSUB 243 

94 IF W<21 AND Q>2J THEN F0RM=lT05s PRINT.D3*64, S 
TR I NS* ( 30 ? 32 ) : FORD= 1 TO 1 00 : NEK T D : P » t .1 NT<ftS*64 * " VOC 
E SANHDU"? :FORD=1T0100:NEXTD:NFXTM 

95 IF W>Q AND W<21 THEN FOR M=1T0 5: PRINT33+64, 
STR I NG* ( 30 . 32 ) : FORD= 1 TOl OO = NEXTD : PR I NTS3*64 - " W 
CE GANHOU" 5 : FORD^ITOIOO: NEXTD: NEXTM 

96 IF W<Q AND Q<21 THEN GOSUB 243 

97 IF Q=21 AND T»3 THEN G03UE 269 
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IF W=Q AMD GK21 THEN 299 



RQTINA FINAL 



■ *T* "■ * H l* *T" *^F* " T * "T™ 



98 

99 ? 

100 ' 

101 ******** a 

102 =" 

103 » 

104 PRINTS>15*64, "DESEJA JOGAR MAIS UNA 

IDS K1*=INKEYS: IF K1*=""THEN 105 
106 IF K1*="S" THEN 1 

K1*»"N" THEN END 

K1*<> H S" OR K]*<>"IM" THEN 104 



PART I DA 



IF 

IF 



***** 



107 

108 
K>9 •- 

110 ' 

113 ' *******: a : : i-i 

112 * 

113 P0KEG,49:P0KEH,49 

114 RETURN 

115 * ****** a : : : : 1=2: : : : ******* 

1 1 6 POKE B » SO S : POk EM . 50 

117 RETURN 

118 * *##**<*« : : : [=3 : : s : ***** 
1 1 9 PftK Ff : i - 5 1 1 POk'FH . 5 1 

120 RETURN 

121 * ******** : : : : 1=4: : : 5 : : ****** 

122 POKE<3*S2*P0KEH*52 

123 RETURN 

\2A * ********: : : : : 1=5= : : : : : ******* 
125 P0KEG»53sP0KEH.-53 
176 RETURN 

127 * ********: :::::: I =6 : : : : : :****** 

128 POKES* 54>F0KEW» 54 

129 RETURN 

130 ? ********* a a : a : : 1=7 : : : : :******* 

131 P0KEG,55=P0KEH,55 

132 RETURN 

133 »*******: : : a : 1=8= ' ' a s ***** 

134 P0KEG,56:PQKEH,56 

135 RETURN 

1 36 * ******* : : : : : I =9 : a a a ***** 
13V POKEG.57=POKEH,57 

13B RETURN 

139 " ******* ft a s 1 = 10 a a a a ***** 

i 4* PDK£6*4?«P0KE64-2 , 48: POKEH, 49:P0KEH+1 , 48 

141 RETURN 

142 ? *****:::: :" 1 = 11 s a & i ****** 
^ a. -. l -OKt : :G»74flPQKEHj 74 

144 RETURN 

iftS '■' *#**H»rt«1 :::!l-12::: « ******* 

*•■ f-i •K&ta-i&l :P0KEM,81 
147 RETURN 

X4*5 *•' *******: a : a s a 1 = 13= s : : s ******* 
I**-, . .;i. t.i. 7SKPOKEH*7S 
150 RETURN 

1M 'w*S«:lS RQTINA DA SEGUNDA CARTA, P=2 ::::** 

152 B= a 1342 < ?aH«157S7 

15:.' FOR Y=2T021 : SET (7. Y) = SET <35 ? Y> : NEXTYs SET (8, 
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•T* **f% *T» «x* "t* 'r *** 



IMEXTYSSET (34, 



NEXT Y : SET (60, 



NEXTX 



******** 



154 FO«:X=iOTQ32:SET<X,0) :SET(X,23) sNEXTX 

155 BOSUB* 82 

156 RETURN 

157 » *****: : : : r. ; TERCEIRA CARTA, P=3 

158 B= 1 5442 :H= 15770 

159 FQRY=2TG21 : SET (33, Y) : BET (61 P Y) 
1) : SET (60, 1>:SET(34,22) : SET (60, 22> 

160 F0RX=36T05B:SET(X,0) = 5ET(X,23) : NEXTX 

161 BOSUBl^l 

162 RETURN 

163 ' *******: : : : : : QUART A CARTA, P=4: : : : ******** 

164 6=15455: H=157B3 

165 F0RY=2TD21= SET tS9, V) = SET (87, Y) 
1) : SET (86, 1) = SET (60, 22) : SET (86, 22) 

166 F r 0RX=62T0B4*SETvX,0) *SET<X,23> 
le>7 BOSUB 195 
J 68 RETURN 

169 >*******::::: QUINT A CARTA. P=5 

170 3=15468* f-U= 1579*. 

171 FOR Y=2T02l:SF.Ta*5,Y> : SET (113, Y) ; NEXT Y = SET < 
B6> 1 ) a SET (112,1) : S£T ( 86, 22 » s SET 1 1 i ? 9 ? .V > 

172 P0RX«88TQ 1 10: SET (X,0> 8 SET <X,23> a NEXTX 

173 BOSUB SS"/ 
1.74 RETURN 

175 " ***#**s B5SBI PR I ME IRA CARTA, P=l ::::***** 

176 (3=13959*8*16133 

177 F0RY=27T037:SET(7,Y) :SET(55,Y> : NEXTY: SET (54 
,26): SET (54, 38) - SETtQ.263 :SET(H...^i 

178 F0RX=9T053:SET(X,25) R SET OK » 393 : NEXTX 

179 RETURN 

180 " 

1B1 ' 

182 

183 

184 

185 

186 

1B7 

IBS 

1B9 

190 

191 

192 

193 

194 

195 

196 

197 

198 

t 99 

200 

2< > 1 

202 

203 

?04 

705 

?06 



****! 



COORDENADA DOS NAIPES DAS CARTAS 
1 1 1 1 1 1 II 1 1 1 1 1 iti 1 1 1 ti in as : s 



■ ■ i ■ -i^^f-^ti 



* ********** 3 : : ; 

A=15432sB=1575B 
BOSUB 207 
RETURN 
RETURN 

* ********* a s s 8 a ; 
A=15444=B=15772 
C3QSUB207 
RETURN 

A= 15457:9=15785 

BOSUB 207 

RETURN 

' *********** : - • ; 

A= 1 5470 :B= 15798 
SOBUB207 

RETURN 
? ******** g : : : ; 

A=!596l:B=l6135 
BOSUB 207 
RETURN 



CARTA 



• 'T*~\* "T* »f "T + *t" "T- 



CARTA 



; ******* 



CARTA 4: : 



****** 



CARTA 5: 



CARTA 1 



:+::*.*+:.■*::*<;+: 



: ***:* 
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207 
20P 
209 
210 



212 
213 

714 

216 

217 



* *H:**>f:t4f*^***a 35 & S 3 3 

* *:+:**;•*:*::+:***■* 3 S CONG / 

* *»**#**##*** 3 :::::: 

C=67: E=69: 0=795 P=30 

IF N=l THEN POKE A, C: POKE B, C 

THEN POKE 

THEN POKE 

THEN POKE 



S8Q335BSS **# **;*** :+:*+:+:*:+: 

MAT PES* S »t*#**e#H:*»u*e>H*#s**#H< 



IF M=2 
IP N=4 
TF N=4 
RETURN 

» :+:**+:* : : S 



A, E: POKE B,E 
A, Q: POKE B,0 
A. P: POKE B,P 



SORTEIO DA CARTA ABERTA 



; »fc3t»fc 



CLSs W=Os O=0s L=Os J=0 

FDRU=1T06 

RANDOM 

I =PND ( 1 3 > S M-RMD ( 4 > 

ON U BOSUB 237,151,157,163,169 
so ON I ©QSUB lllrllS-llS*12i.t24 
136, 139,142, 145, 148 
224 Bl-W*W««Bi + I 



218 

2i<* 
220 
221 

722 



127, 130. 133, 



226 

227 

228 

229 
230 

731 

232 

234 



W»B2+9 
u=B2+8 

U)= 1*2 + 7 



;W; 



K?=W 

IF I = .tl THEN 

JF 1=12 THEN 

IF 1=13 THEN 

PRINTS) 14*64+42. "SOMA 

IFU=6 THEN 236 

PRINTS)t4*64+2> "DESEJA MAIS CARTAS 

B3*»INKEV*a IFB3:»»'" , TH£N 232 

TF B3*="N" THEN 70 

IF B3*="S" THEN PR I NT5>14>*64+2, 8TRI NG* < 30, 32 



<S/N>?. 



) = NEXTU 



IF B3*<>"5" 

RETURN 

• ::= RGTINA 



OR 83* 



N" THEN 231 



DA PR I ME IRA CARTA ABERTA 



735 
236 
237 

238 R=17.959:H=16133 

239 FOR Y=27T037=SET(7,Y) s SET (55, Y) : NEXTY: SET < 5 

4,26) :SET(54,3B> : SET (8, 26) : SET (8, 38) 

240 F0RX=9T0 53: SET (X, 25) : SET (X, 39) : NEXTX 

BOSUB 203 

RETURN 



741 



243 
744 

245 



CLSs 8 *»f**»K***: 



ROT/DES/GANHEI 



:*::+::+:*: 



FORY=3T05:FORi<=7T035: SET (X, Y) : NEXTX: NEXTY 
FORY=3T05: F0RX=44T071 : SET (X, Y) : NEXTX: NEXTY 
746 FOR Y= 1 2T0 14: F0RK=26T04 1 = SET < X , Y ) : NEXTX t NEXTY 
247 FORY=12T014=FORX=R4Tn99:SET<X,Y) s NEXTX: NEXTY 
FORY=12T014:FORX=47T066tSET(X,Y) : NEXTX: NEXTY 
FORY*l®T020a F0RX=1 12T01 17: SET (X, Y) : NEXTH: NEXTY 
FORY=18T020: FORX=7T035: SET (X, Y) : NEXTX: NEXTY 
FORY=24T02£>: FQRX=80TD103: SET (X, Y) 5 NEXTX: NEXTY 
FOR Y=3OT032 : FGRX=44T07 1 B SET ( X , Y ) : NEXTX : NEXTY 
F0RV-3OT0321 FGRX-0OTD 1 03« SET<X. Y) : NEXTX: NEXTY 
F0RY=39T041 : FGRX=^0T0103: SET (X, Y) : NEXTX: NEXTY 
F0RY-3TQ20a F0RX=7T012: SET (X, V) : NEXTX: NEXTY 
FORY=i5T02C>:FORX=31T035sSET(X,Y) 5NEXTXS NEXTY 
F0RY=3T02O: FORX-44TOSO: SET (X, Y> : NEXTX: NEXTY 
F0RY=3T020: FQRX»65TD71 B SET (X, Y) : NEXTX: NEXTY 
F0RY=2AT04 I : F0RX-BT01 3 = GET ( X , Y ) : NEXTX : NEXTY 
FDRY»24TQ41 : FPRX=30T035: SET (X, Y) : NEXTX: NEXTY 



248 

249 
25C 

251 
7^7 
753 
254 
755 

256 

257 

258 
259 
760 
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F0RY=24T04H 
F0RY=24TO41 

FORY=24T041 

F0RY=2AT041 
W9=1. t!K9=lf5 
pnRY=2^T041. 



F0RX=44T049 : SET OtVV) I NEXTX : NEXT Y 
FmX=&6T071 8 PET (X, Y) B NEXTX: NEXTY 
FC3RK=8OTa©5sSET (X, V) : NEXTX: NEXTY 
FDRX-1 t 2TO! 17: SET (X, V) : NEXTXt NEXTV 

FORX=W9 TO K9:SET<X> Y) s TFX-32THEN2 



Uj9=u/V-i-1 eK9«l^94-l : NEXTXt NEXTY 
^0Rtf=lT01O0O:NEXTM: RETURN 
CLS* *»|wM»****a s : 5R0T/DE9/R0YALS 
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269 
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272 

r-t—f-r 
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278 

; 79 

280 

zm 

282 
283 
284 

2B6 

2B? 

2m 

2«9 

292 
293 

294 
297 
295 

296 
297 

TOlOOsNEXTD: PRINTS 12*64+8, "GANHF.T"; : F0RD=1T0100.: 
NEXTDANEXTM 
298 RETURN 
2*59 CLSa '*******: : : : : = Fv'OT/ REVAN/: i 

300 PRINT&2*64, "NOS EMPATAMQ5*SEND0 
DIREITO DE SABER QUEM E' MELHOR.-EU OU VOCE. 

301 FORM=1TO 2000: NEXTM: GOTO! 



PR I NTS) 1*64," VINTE E 

FDRY=9T0t t s F0RX=2T025= SET (X, Y> : NEXTX = NEXTY 
F0RY=9T01 1 : F0RX«28T0S1 : SET (X, Y) : NEXTX: NEXTY 
F0RY-9TOll:FORX=B0TOiO3:SET(X,Y> : NEXTX: NEXTY 
F0RY=9TCU 1 : F0RX=54T059: SET (X, Y) : NEXTX: NEXTY 
F0RY=9T0i 1 sFORX=72TD77s SET <X, Y) : NEXTX : NEXTY 
F0RY=15T017:F0RX=2T025:SET(X,Y) : NEXTX: NEXTY 
FORY=13T017:FORX=54T077:SET(X» Y) : NEXTX: NEXTY 
FORY=15T017:FORX=80T0103:SET(X ? Y) : NEXTX: NEXTY 
FGRY=24TU26: F0RX=28T051 =SET (X, I ) S NEXTX: NEXTY 
F0RY=24TO26: F0RX=106T0127: SET (X, Y) s NEXTX: NEXTY 
FORy=7T026:FORX=2T07:SET<X i .Y> : NEXTX: NEXTY 
FQRY=9TD26: F0RX=2ST033". SET tK» Y) < NEXTX: NEXTY 
FfiRY=9T026:FORX=46T{J^:i : SET (X, YJ : NEXTX: NEXTY 
F0RY=9T026: F0RX=B0T085: SET (X? Y) : NEXTX: NEXTY 
FnRY=9TD26=l=0R:<=9BTai03:SET(X,Y) : NEXTX: NEXTY 
FORY=9T026:FORX=106TGU1 : SET <X,Y) : NEXTX: NiiXTY 
FfiRY=l2"r014:FDR:<=20T025:SFT(X,Yj : NEXTX: NEXT Y 
FORY= 1 2T0 1 4: F0RX=54TGS9 : SET ( X , Y ) : NEXTX : NEXTY 



FDRY=r.- :, T014:F0RX=72Tu77;SETO<- vj 
FORY« 1 ST0268 F0RX=63T068: SET ( X r Y > 
HR=1 1 skR=i,7: 7.1 »1 t : 72= i 7 
F ORY= 1 BT026B FORX=HRT(JKR : SET ( X > Y ) 



NEXTX : NEXTY 
NEXTX a NEXTY 



IFX=25 THtiN 



HR«71+Z3«KR*Z2*Z3* Z3=Z3+1 /4 
NEXTX: NEXTY 

FORM= 1 TOS : PR I NTS) 1 2*64+3 , STR I NB* (10, 



'.2) :F0RD=1 



;+;.+; ;f;*;(N.1-;:-h:*; 



ASS IM TENHO 
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Lcteria Esocrtiva 




Para quern nunca jogou na loteria esportiva, ou mesmo para aqueles 
que sffo fana'ticos em fazer "uma fezinha", eis aqui uma sugesta*o;deixe 
seu computador jogar para voc6. £ um programa que sorteia aleatoria- 
mente cartoes, fazendo inclusive os duplos e trtplos, ora, na maioria 
das vezes em que jogamos, SEMPRE di uma zebra, quern sabe se seu 
computador na"o jogue melhor que voce? Nao custa tentar, ou melhor 
dar uma chance ao seu computador, 6 (6gico que, sem a sua ajuda ele 
nflo o fara*, portanto d§ uma "mffozinha" a* ele, e boa sorte aos dois. 
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140 



> **:+::*<+: * :+: :f : **;+::+::+;:+; * * :+: # * :+: :f: * * :+: * + :+: :+: :+: :f: *: :^ :+: :fc * ;+: * * :+; :* * * :+; 

":+* ALEXANDRE TERRA DE CALAZANS FERNANDES ** 
'** ENG. MACK = TEL: 280-5804 ** 

•* :+::+::+;:+:**:+:*+:>t::4:**+:+:*:++::4:** 

>** JOGO DA LETERIA ESP0RTIVA *****:**:+::+:*****: 



CLS: CLEAR 20OO 

PRINT5)19,"LOTERIA ESP0RTIVA 
A*«STRING* (24> 191 ) 

PRINT5)8CKA$; :A= 15504 
PR I NT® 1 5*64+ 1 6* A* ; 
F0Rt=l TO 13 
POKE A, 191 SPOKE A+3, 191 

A+15, 191: POKE A+19, 191 : POKE 
*64+12, 1 ; 
150 A=A+64 
160 NEXT 

170 PRINT;i)82- " 1 " ; : PRINT387? " X " 
"5 :PRINTS>96, " D " ; : PRINT31 00, " T ' 
180 PR.TNT;i>2*64+42, "QUANTOS DUPLDS? 
42, "MAX. DE 5 "; 

19G B*=INKEY*:TF B*="" THEN 190 

190 
TRIPLOS' 



POKE A+10> 191: POKE 
A+23, 1*1: PRINTS) (1 + 1 > 



:PRINT;i>91, " 2 
;:PRINTS>3*64+ 



200 B=VAL (B4>:IF B>5 THEN 



210 
+42 

220 
230 
240 
250 
260 
270 
:*'^u 
290 
300 
510 
320 
330 
340 
350 
360 
370 
380 
390 
400 



PRTNT«>5*64+42, "QUANTOS 
"MAX. DE 3 "9 

C$=IhlKFY3>: TF C*="" THEN 220 

C=VAL(C$):IF C>3 THEN 220 

[)$=CHR3> < 1 4o) +CHRS ( 1 40) 

IF R=0 THEN B=l 

F0RT=1 TO 13 

R=RND<3>:PRINTS)(I + l>*64+< <R*6>+11) 

NFX'f 

F0RI=3 TO B 
PR 1 NTS) < RND ( 1 3) + n *64+33 , CHR* (140)? 
NEXT 

TF C=0 THEN 360 
FPRI=1 TO C 

PRINT:D<RND<13>+1>*64+37>CHR*<140> ; 
NEXT 

F0RJ=O TO 15:PRINTS>J*64+42.. CHR*(30) 5 
PRINT38+64+42,"TECLE <- ENTER -> " : 
PRINT39*64+42, "P/ CONTJNUAR"; 
F$=INKEY$:iF F$="" THEN 390 
IF F*<> CHR*<13) THEN 390 ELSE 10 



PRJNT36*64 



D*; 



NEXT 
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PROGRAMA EXEMPLO PARA 
CONSISTENCY E FORMAT A?AO DE DATAS 

coracao deste programa exemplo consiste nas duas rotinas (linhas 
32000 a 33(980) que sSo respectivamente a de formatacSb e consistencia 
de datas. 

As linhas 10 a 150, sSo apenas urn programa principal de exemplo 
de utilizac£o das rotinas, com excecSb da linha 40, que sempre devera 1 
ser mantida, visto que uma segunda utilizacSb da rotina 33000 com a 

inclusSb da linha 40, iria provocar urn erro DD (Redimensionamento 

de matriz). 

A varidvel ER contem a informacSb de data invalida quando ER = 1 
e data valida quando ER = 0. 

SSb duas rotinas de facil utilizacao por qualquer programa. 



PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATlVEIS 



10 PROGRAMA EXEMPLO PARA CONSISTENCIA E 

FOR MAT AC AO DE DATAS 
20 AUTOR: JOSE MANUEL ONETO Y VILA - FONE: 458-0938 
40 DIM DM (12) 
50 CLS 

60 DT = 0: INPUT "DATA DE HOJE (QDMMAA)";DT 
70 GOSUB 32000' FORMATA DATA 
80 GOSUB 33000 'CONSISTE DATA 

90 IFER= 1 THEN PRINT "DATA INVALIDA ": PRINT : GOTO 
60 
100 PRINT "DATA CORRETA:-* ";DBS 
110 PRINT 

120 PRINT "CONTINUAIS/N)"; 
130 R$- " ": INPUT R$ :R$= LEFT$(R$,1) 
140 IF R$ = "S"THEN GOTO 50 
150 END 
32000 ' ROTINA PARA FORMATACAO DE DATAS 
32010 ' DB$- DATAFORMATADA 
32020 ' 

32030 DT$ = STR$(DT) 
32040 DT$= RIGHT$(DT$,LEN(DT$)-1) 
32050 DT$« RIGHTS ("000000"+ DT$, 6} 
32060 DIA$ = MID$ (DT$, 1,2) 
32070 MES$ = MID$(DT$/3,2) 
32080 ANO$=MID$ (DT$, 5,2) 
32090 DB$ = Dl A$ + "/" + MES$ + "/" + AN0$ 
32100 RETURN 

33000 ' SUBROTINADE CONSISTENCIA DE DATA 
33010 ' 

33020 DATA31,28,31,30,31,30,31,31,30,31 ,30,31 
33030 FOR 1 = 1 TO 12 
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^ 33040 READ DM (I) W 

33050 NEXT I 

33060 RESTORE 
O 33070 DIA = VAL(DIA$) O 

33080 MES = VAL(MES$) 

33090 ANO = VAL{ANO$) 
PJ 33100 ANO - ANO + 1900 Q 

33110 ER = 

33120 IF INT(ANO/4) *4 = ANO AND INT(ANO/400) M00< > 
^ ANO THEN DM (2) = 29 ^ 

33130 IF MES<1 ORMES>12THEN ER = 1 : RETURN 

33140 IF DIA<1 OR DIA>31THEN ER = 1 : RETURN 

33150 IF DIA>DM (MES) THEN ER = 1 : RETURN 
O 33160 RETURN O 

VISUAL 

o o 

Este programa provoca urn efeito visual muito interessante no video, 
e uma senoide de variadas posicfies. Tente alterar o programa, de modo 
r\ que ele provoque novos efeitos visuals, vale a pena tentar, pois sd assim Q 

voce" podera* famitiarizar-se com seu microcomputador. 

O 

PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATlVEIS 

o o 

10 PROGRAMA DE EFEITO VISUAL COM SENOIDES 

15 PARA TRS-80 MODELOS I E III E COMPATlVEIS 

20 AUTOR JOSE MANUEL ONETO Y VILA - FONE: 458-0938 

35 CLS 

40 PASSO- 0.5 

50C = 23 n 

L^ 60 T - 23 ^ 

70 IF C*T=0 GOTO 1000 

80 FOR l=0TO127 

90 X = SIN(I/T) - T + C O 

100 IFX<10RX>47 GOTO 120 

110 SET(I,X) 

120 NEXT I r\ 

130 T= T-1 
140 GOTO 70 
1000 GOTO 1000 

ATENQAOLEITORES: 

O O 

Escrevam pedindo esclarecimentos, suqestOes, cri'ticas, que serab 
respond idas atraves da secao de cartas. 
r*\ Enderece a corresponde*ncia para: £} 

BARTOLO FITTIPALDI 

Revista "SO PROGRAMAS"- Rua Santa Virginia, 403 
r^ Tatuap6 - CEP 03084 - SAO PAULO - SP. r^ 
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VOCE que fabrica ou vende 
equipamentos ou qualquer 

produto ligado a area de 

rc MICROS 7 " 

ANUNCIE EM 






■—■3®™-! 

VEICULO EFICIENTE, QUE 

ATINGE DIRETAMENTE O 

CONSUMIDOR DO 
SEU PRODUTO 



(011)217.6111 (DIRETO) C OW 
(011)943.8733 (DIRETO) '& 

• (011)223.2037 (CONTATOS) 



e. 



"09 




■BAHTOLO FITTIPA". Dl 




